home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 7 / Commodore_Disc_07_19xx_-_de.d64 / general spr.ut. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  128 lines
  1. 10 rem      general sprite utility
  2. 20 rem           (c) 1986 by
  3. 30 rem          joerg  tuttas
  4. 40 rem           aus hoexter
  5. 50 rem ----------------------------------------------------------------------
  6. 60 rem  befehle:
  7. 70 rem   #s,spr.nr.,x,y,vor/hintergrung,gross/klein x,g/k-y,mc/hc,blo   (cr)
  8. 80 :
  9. 90 rem   #c,spr.nr.,sc,mc1,mc2 (cr)
  10. 100 rem  #o,spr.nr.            (cr)
  11. 110 rem  #an,spr.nr.,speed,anzahl,blpck 1,bl.2,...,......,........      (cr)
  12. 120 rem  #ao,spr.nr.            (cr)
  13. 130 rem  #ms,spr.nr.,speed,rich (cr)
  14. 140 rem  #mo,spr.nr.            (cr)
  15. 150 rem
  16. 160 rem----------------------------------------------------------------------
  17. 170 :
  18. 180 poke 53280,0:poke 53281,0:print"[147]"chr$(14):dim p(77)
  19. 190 print"         [199]eneral [211]prite [213]tility":
  20. 200 print"[150]         [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  21. 210 print" [207]n [196][146]isk or in [205][146]emory"
  22. 220 get a$
  23. 230 if a$="d" then 260
  24. 240 if a$="m" then 280
  25. 250 goto 220
  26. 260 print" [198]ilename:";:input fi$
  27. 270 open 1,8,1,fi$:print#1,chr$(0);chr$(192);
  28. 280 print" please wait"
  29. 290 for t=0 to 75:read p(t):next
  30. 300 for y=49152 to 50438 step 17:s=0
  31. 310 for x=0 to 16:read a:s=s+a
  32. 320 if a$="m" then poke y+x,a
  33. 330 if a$="d" then print#1,chr$(a);
  34. 340 next
  35. 350 ifp(po)<>sthen print"[158]?[196][193][212][193]-[198]ehler in[160][218]eile"peek(63)+peek(64)*256:goto380
  36. 360 po=po+1:next
  37. 370 print"[158]!! [208]rogramm [207][203]":close 1:end
  38. 380 close 1:end
  39. 390 :
  40. 400 rem       pruefsummen
  41. 410 :
  42. 420 data 1564,1752,2039,1855,2130,1832,2041,1828,1692,1891,2256,2571
  43. 430 data 2223,2645,2751,2063,2517,2189,1903,2430,2135,2183,2516
  44. 440 data 2303,2069,2588,2074,2050,2192,2246,2600,2917,2407,2067,1426
  45. 450 data 2294,2050,2269,2071,2225,2075,2048,2592,2428,2348,3149
  46. 460 data 1661,2197,2261,2679,1423,2489,2695,2373,1811,1629,2250
  47. 470 data 2338,2431,2425,1999,2373,2322,2416,2613,2760,2424,2348,2152
  48. 480 data 1940,2165,1917,2125,2048,2400,1666
  49. 490 :
  50. 500 rem      programm datas
  51. 510 :
  52. 520 data169, 44,141, 8, 3,169,192,141, 9, 3,120,169, 63,141, 20, 3,169
  53. 530 data194,141, 21, 3, 88,169, 0,141,192, 3,141, 25, 9,133,170,141,181
  54. 540 data 3,169, 0,133,252,169,202,133,253, 96, 32,115, 0,201, 35,240, 6
  55. 550 data 32,121, 0, 76,231,167, 32,115, 0,201, 83,240, 22,201, 67,240, 27
  56. 560 data201, 65,240, 32,201, 77,240, 42,201, 79,240, 52, 32,121, 0, 76,231
  57. 570 data167, 32,115, 0, 32,177,192, 76,174,167, 32,115, 0, 32,252,193, 76
  58. 580 data174,167, 32,115, 0,201, 79,240, 30,201, 78,240, 35, 76,174,167, 32
  59. 590 data115, 0,201, 83,240, 34,201, 79,240, 39, 76,174,167, 32,115, 0, 32
  60. 600 data 50,194, 76,174,167, 32,115, 0, 32, 93,195, 76,174,167, 32,115, 0
  61. 610 data 32,199,194, 76,174,167, 32,115, 0, 32,111,195, 76,174,167, 32,115
  62. 620 data 0, 32,240,196, 76,174,167,120, 32,253,174, 32,158,183,134,253, 32
  63. 630 data253,174, 32,138,173, 32,247,183,165, 20,133,250,165, 21,133,251,201
  64. 640 data 0,208, 3, 76,221,192,173, 16,208, 5,253,141, 16,208, 76,235,192
  65. 650 data165,253, 73,255,133,254,173, 16,208, 37,254,141, 16,208, 32,253,174
  66. 660 data 32,158,183,134,252,164,253, 32,209,193,165,250,153, 0,208,200,165
  67. 670 data252,153, 0,208,173, 21,208, 5,253,141, 21,208, 32,115, 0,201, 72
  68. 680 data240, 23,201, 86,240, 2, 88, 96,165,253, 73,255,133,254,173, 27,208
  69. 690 data 37,254,141, 27,208, 76, 49,193,173, 27,208, 5,253,141, 27,208,162
  70. 700 data 0, 32,225,193,224, 0,240, 30, 32,115, 0,201, 71,240, 24,201, 75
  71. 710 data240, 2, 88, 96,165,253, 73,255,133,254,173, 29,208, 37,254,141, 29
  72. 720 data208, 76, 97,193, 96,173, 29,208, 5,253,141, 29,208,162, 0, 32,225
  73. 730 data193,224, 0,240,238, 32,115, 0,201, 71,240, 23,201, 75,240, 2, 88
  74. 740 data 96,165,253, 73,255,133,254,173, 23,208, 37,254,141, 23,208, 76,144
  75. 750 data193,173, 23,208, 5,253,141, 23,208,162, 0, 32,225,193,224, 0,240
  76. 760 data191, 32,115, 0,201, 77,240, 23,201, 72,240, 2, 88, 96,165,253, 73
  77. 770 data255,133,254,173, 28,208, 37,254,141, 28,208, 76,191,193,173, 28,208
  78. 780 data 5,253,141, 28,208, 32,115, 0, 32,253,174, 32,158,183, 32,235,193
  79. 790 data138,153,248, 7, 88, 96,136,152,160, 0,201, 0,240, 7,200,200, 24
  80. 800 data106, 76,213,193, 96, 32,115, 0,201, 44,240, 1, 96,232, 96,198,253
  81. 810 data165,253,160, 0,201, 0,240, 6,200, 24,106, 76,241,193, 96, 32,253
  82. 820 data174, 32,158,183,134,253, 32,253,174, 32,158,183,134,250,165,253, 32
  83. 830 data235,193,165,250,153, 39,208,230,253,173, 28,208, 37,253,240,220, 32
  84. 840 data253,174, 32,158,183,142, 37,208, 32,253,174, 32,158,183,142, 38,208
  85. 850 data 96, 32,253,174, 32,158,183,138, 73,255,141, 21,208, 96,173, 25, 9
  86. 860 data 41, 1,201, 1,240, 12,173, 25, 9, 41, 2,201, 2,240,112, 76, 49
  87. 870 data234,160, 0,169, 1,133,169,165,170, 57, 85,195,208, 14,200,165,169
  88. 880 data 24, 42,133,169,192, 8,208,238, 76, 72,194,140,131, 3,185,232, 3
  89. 890 data201, 1,240, 9,170,202,138,153,232, 3, 76, 97,194,185,212, 3,153
  90. 900 data232, 3, 32, 53,195,172,131, 3,185,192, 3,168,177,252,140,130, 3
  91. 910 data 32, 28,195,153,248, 7,172,130, 3,200,177,252,201, 0,240, 15,172
  92. 920 data131, 3,185,192, 3,170,232,138,153,192, 3, 76, 97,194,172,131, 3
  93. 930 data169, 0,153,192, 3, 76, 97,194, 32,173,195, 76, 49,234,120, 32,253
  94. 940 data174, 32,158,183,134,253,134,169,165,170, 5,253,133,170, 32,253,174
  95. 950 data 32,158,183,134,254, 32,235,193,165,254,153,232, 3,153,212, 3, 32
  96. 960 data253,174, 32,158,183,134,254,134,168,160, 0,132,254, 32, 53,195, 32
  97. 970 data253,174, 32,158,183,138,164,254,145,252,200,132,254,196,168,208,238
  98. 980 data169, 0,145,252,173, 25, 9, 9, 1,141, 25, 9, 88, 96,132,254,133
  99. 990 data250,198,169,165,169,160, 0,201, 0,240, 6, 24,106,200, 76, 38,195
  100. 1000 data230,169,165,250, 96,166,169, 32, 35,192,165,252, 24,105, 20,176, 15
  101. 1010 data133,252,165,169, 24,106,133,169,201, 0,208,237,134,169, 96,230,253
  102. 1020 data 76, 65,195, 1, 2, 4, 8, 16, 32, 64,128, 32,253,174, 32,158,183
  103. 1030 data138, 73,255,133,254,165,170, 37,254,133,170, 96,120, 32,253,174, 32
  104. 1040 data158,183,134,253,134,250, 32,253,174, 32,158,183, 32,235,193,138,153
  105. 1050 data162, 3,153,152, 3, 32,253,174, 32,158,183,165,250,133,253, 32,235
  106. 1060 data193,138,153,171, 3,173,181, 3, 5,250,141,181, 3,173, 25, 9, 9
  107. 1070 data 2,141, 25, 9, 88, 96,160, 0,173,181, 3, 57, 85,195,208, 6,200
  108. 1080 data192, 8,208,243, 96,185,162, 3,240, 9,170,202,138,153,162, 3, 76
  109. 1090 data183,195,185,152, 3,153,162, 3,132,254, 32,101,196,132,250,140, 65
  110. 1100 data 3,185, 0,208,170,200,185, 0,208,168,132,253,169, 2,133,251,164
  111. 1110 data254,185,171, 3,164,253,201, 1,240, 33,201, 2,240, 33,201, 3,240
  112. 1120 data 37,201, 4,240, 40,201, 5,240, 44,201, 6,240, 44,201, 7,240, 48
  113. 1130 data201, 8,240, 51,164,254, 76,183,195,136, 76, 76,196,136,232, 32,117
  114. 1140 data196, 76, 76,196,232, 32,117,196, 76, 76,196,232,200, 32,117,196, 76
  115. 1150 data 76,196,200, 76, 76,196,202,200, 32,192,196, 76, 76,196,202, 32,192
  116. 1160 data196, 76, 76,196,202,136, 32,192,196, 76, 76,196,198,251,208,154,152
  117. 1170 data164,250,200,153, 0,208,138,164,250,153, 0,208,164,254, 76,183,195
  118. 1180 data 76,183,195,234,152,170,160, 0,224, 0,240, 6,202,200,200, 76,106
  119. 1190 data196, 96,224,255,240, 5,224,100,176, 35, 96,173, 16,208,140,161, 3
  120. 1200 data164,254, 57, 85,195,240, 6,172,161, 3, 76,121,196,173, 16,208, 25
  121. 1210 data 85,195,141, 16,208,172,161, 3,162, 0, 96,173, 16,208,140,161, 3
  122. 1220 data164,254, 57, 85,195,208, 4,172,161, 3, 96,173, 16,208, 89, 85,195
  123. 1230 data141, 16,208,172,161, 3,162, 0, 96,224, 0,240, 1, 96,173, 16,208
  124. 1240 data140,161, 3,164,254, 57, 85,195,208, 15,173, 16,208, 25, 85,195,141
  125. 1250 data 16,208,172,161, 3,162, 99, 96,173, 16,208, 89, 85,195,141, 16,208
  126. 1260 data172,161, 3,162,255, 96,120, 32,253,174, 32,158,183,138, 73,255,133
  127. 1270 data254,173,181, 3, 37,254,141,181, 3, 88, 96,255,0,0,0,0,0
  128.